      FUNCTION SECOND()
      REAL TVAL
      CALL CPU_TIME(TVAL)
      SECOND = TVAL
      END
